VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BParametrosReporte"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvardFechaIni As Date
Private mvardFechaFin As Date
Private mvarbCompania As bCompania
Private mvarbAgrupaCompanias As Boolean
Private mvarOcultarCampos As Boolean
Private mvarbEmpleado As bEmpleado
Private mvarbResumen As Boolean
Private mvarnNumRegistros As Integer

Public Property Get bEmpleado() As bEmpleado
    Set bEmpleado = mvarbEmpleado
End Property

Public Property Set bEmpleado(bEmpleado As bEmpleado)
    Set mvarbEmpleado = bEmpleado
End Property


Public Property Get OcultarCampos() As Boolean
    OcultarCampos = mvarOcultarCampos
End Property

Public Property Let OcultarCampos(ByVal OcultarCampos As Boolean)
    mvarOcultarCampos = OcultarCampos
End Property


Public Property Get bAgrupaCompanias() As Boolean
    bAgrupaCompanias = mvarbAgrupaCompanias
End Property

Public Property Let bAgrupaCompanias(ByVal bAgrupaCompanias As Boolean)
    mvarbAgrupaCompanias = bAgrupaCompanias
End Property


Private Sub Class_Initialize()
    Set mvarbCompania = New bCompania
End Sub

Private Sub Class_Terminate()
    Set mvarbCompania = Nothing
    Set mvarbEmpleado = Nothing
End Sub

Public Property Get dFechaIni() As Date
    dFechaIni = mvardFechaIni
End Property

Public Property Let dFechaIni(ByVal dFechaIni As Date)
    mvardFechaIni = dFechaIni
End Property

Public Property Get dFechaFin() As Date
    dFechaFin = mvardFechaFin
End Property

Public Property Let dFechaFin(ByVal dFechaFin As Date)
    mvardFechaFin = dFechaFin
End Property

Public Property Get bCompania() As bCompania
    Set bCompania = mvarbCompania
End Property

Public Property Set bCompania(bCompania As bCompania)
    Set mvarbCompania = bCompania
End Property

Public Property Get bResumen() As Boolean

    bResumen = mvarbResumen

End Property

Public Property Let bResumen(ByVal bResumen As Boolean)

    mvarbResumen = bResumen

End Property

Public Property Get nNumRegistros() As Integer

    nNumRegistros = mvarnNumRegistros

End Property

Public Property Let nNumRegistros(ByVal nNumRegistros As Integer)

    mvarnNumRegistros = nNumRegistros

End Property
